;;; -*- Mode: Lisp; Package:MUMBLE; Syntax: COMMON-LISP; Base:10; -*-;;;;;; mumble-86:interface>applications> interface-utilities.lisp;;;;;; Copyright (C) 1985, 1986, 1987, 1988, 1995  David D. McDonald and the;;;    Mumble Development Group.  All rights reserved.;;;    Permission is granted to use and copy this file of the Mumble-86 system for;;;    non-commercial purposes.;;;(in-package "MUMBLE");################################################################;    Utility functions required for the interface to Mumble;################################################################(defun SHORT-PRINT-FORM (obj)  "Constructs a string suitable as a short name for the object"  (format nil "~a" obj))(defun MEMBER-OF-A-CLASS? (obj)  (type-of obj))(defun FIRST-MENTION? (ignore)  (declare (ignore ignore))  t)